﻿Imports System Imports System.Collections.Generic Imports System.Text  Public Class CKhachHang #Region "Thuộc Tính Khách Hàng"     Private _maKH As String     Private _maLoaiKH As Integer     Private _tenKH As String     Private _maThanhVien As String     Private _nSinh As Date     Private _hinh As String     Private _soDienThoai As String     Private _email As String     Private _phuongXa As String     Private _maTinh As String     Private _maHuyen As String     Private _diaChiGH As String     Private _kTuyen As Double     Private _vTuyen As Double     Private _ghiChu As String     Private _loaiKH_maLoai As Integer     Private _tinh_maTinh As Integer     Public Property maKH() As String         Get             Return _maKH         End Get         Set(ByVal value As String)             _maKH = value         End Set     End Property      Public Property tenKH() As String
        Get
            Return _tenKH
        End Get
        Set(ByVal value As String)
            _tenKH = value
        End Set
    End Property
     Public Property maLoaiKH() As Integer
        Get
            Return _maLoaiKH
        End Get
        Set(ByVal value As Integer)
            _maLoaiKH = value
        End Set
    End Property
     Public Property hinh() As String
        Get
            Return _hinh
        End Get
        Set(ByVal value As String)
            _hinh = value
        End Set
    End Property

    Public Property nSinh() As Date
        Get
            Return _nSinh
        End Get
        Set(ByVal value As Date)
            _nSinh = value
        End Set
    End Property
     Public Property soDienThoai() As String
        Get
            Return _soDienThoai
        End Get
        Set(ByVal value As String)
            _soDienThoai = value
        End Set
    End Property

    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property

    Public Property maThanhVien() As String
        Get
            Return _maThanhVien
        End Get
        Set(ByVal value As String)
            _maThanhVien = value
        End Set
    End Property

    Public Property phuongXa() As String
        Get
            Return _phuongXa
        End Get
        Set(ByVal value As String)
            _phuongXa = value
        End Set
    End Property

    Public Property maTinh() As String
        Get
            Return _maTinh
        End Get
        Set(ByVal value As String)
            _maTinh = value
        End Set
    End Property

    Public Property maHuyen() As String
        Get
            Return _maHuyen
        End Get
        Set(ByVal value As String)
            _maHuyen = value
        End Set
    End Property

    Public Property diaChiGH() As String
        Get
            Return _diaChiGH
        End Get
        Set(ByVal value As String)
            _diaChiGH = value
        End Set
    End Property

    Public Property kTuyen() As Double
        Get
            Return _kTuyen
        End Get
        Set(ByVal value As Double)
            _kTuyen = value
        End Set
    End Property

    Public Property vTuyen() As Double
        Get
            Return _vTuyen
        End Get
        Set(ByVal value As Double)
            _vTuyen = value
        End Set
    End Property

    Public Property ghiChu() As String
        Get
            Return _ghiChu
        End Get
        Set(ByVal value As String)
            _ghiChu = value
        End Set
    End Property

    Public Property loaiKH_maLoai() As Integer
        Get
            Return _loaiKH_maLoai
        End Get
        Set(ByVal value As Integer)
            _loaiKH_maLoai = value
        End Set
    End Property

    Public Property tinh_maTinh() As Integer
        Get
            Return _tinh_maTinh
        End Get
        Set(ByVal value As Integer)
            _tinh_maTinh = value
        End Set
    End Property

#End Region

#Region "Phương Thức Khởi Tạo"
    Public Sub New()
        Me.maKH = ""         Me.maLoaiKH = 0         Me.tenKH = ""         Me.maThanhVien = ""         Me.nSinh = nSinh.Date         Me.hinh = ""         Me.soDienThoai = ""         Me.email = ""         Me.phuongXa = ""         Me.maTinh = ""         Me.maHuyen = ""         Me.diaChiGH = ""         Me.kTuyen = 0         Me.vTuyen = 0         Me.ghiChu = ""         Me.loaiKH_maLoai = 0         Me.tinh_maTinh = 0
    End Sub
    Public Sub New(ByVal KhachHang As CKhachHang)
        Me.maKH = KhachHang.maKH         Me.maLoaiKH = KhachHang.maLoaiKH         Me.tenKH = KhachHang.tenKH         Me.maThanhVien = KhachHang.maThanhVien         Me.nSinh = KhachHang.nSinh         Me.hinh = KhachHang.hinh         Me.soDienThoai = KhachHang.soDienThoai         Me.email = KhachHang.email         Me.phuongXa = KhachHang.phuongXa         Me.maTinh = KhachHang.maTinh         Me.maHuyen = KhachHang.maHuyen         Me.diaChiGH = KhachHang.diaChiGH         Me.kTuyen = KhachHang.kTuyen         Me.vTuyen = KhachHang.vTuyen         Me.ghiChu = KhachHang.ghiChu         Me.loaiKH_maLoai = KhachHang.maHuyen         Me.tinh_maTinh = KhachHang.tinh_maTinh
    End Sub
    Public Sub New(ByVal ma_KH As String, ByVal maLoai_KH As Integer, ByVal ten_KH As String, ByVal ma_ThanhVien As String, ByVal n_Sinh As Date, ByVal Hinh As String, ByVal so_DienThoai As String, ByVal Email As String, ByVal phuong_Xa As String, ByVal ma_Tinh As String, ByVal ma_Huyen As String, ByVal diaChi_GH As String, ByVal k_Tuyen As String, ByVal v_Tuyen As String, ByVal ghi_Chu As String, ByVal loai_KH_maLoai As Integer, ByVal tinh_maTinh As Integer)         Me.maKH = ma_KH         Me.maLoaiKH = maLoai_KH         Me.tenKH = ten_KH         Me.maThanhVien = ma_ThanhVien         Me.nSinh = n_Sinh         Me.hinh = Hinh         Me.soDienThoai = so_DienThoai         Me.email = Email         Me.phuongXa = phuong_Xa         Me.maTinh = ma_Tinh         Me.maHuyen = ma_Huyen         Me.diaChiGH = diaChi_GH         Me.kTuyen = k_Tuyen         Me.vTuyen = v_Tuyen         Me.ghiChu = ghi_Chu         Me.loaiKH_maLoai = loai_KH_maLoai         Me.tinh_maTinh = tinh_maTinh
    End Sub
#End Region
 End Class  